﻿Imports System.Data.OleDb
Public Class RssFeedScenes
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Function RemoveIllegalCharacters(ByVal input As Object) As String
        ' cast the input to a string  
        Dim data As String = input.ToString()

        ' replace illegal characters in XML documents with their entity references  
        data = data.Replace("&", "&amp;")
        data = data.Replace("""", "&quot;")
        data = data.Replace("'", "&apos;")
        data = data.Replace("<", "&lt;")
        data = data.Replace(">", "&gt;")

        Return data
    End Function

    Public Function okURL(ByVal urlStr As String)
        Return Request.Url.GetLeftPart(UriPartial.Authority) & ResolveUrl(urlStr)
    End Function

End Class